home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr38 / craps203.zip / CRAPS.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-02-25  |  9KB  |  762 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  8647 bytes  01/29/123  04:18:16pm
  3. '! Code Segment Size  :6364 bytes
  4. '! Data Segment Size  :5388 bytes
  5. '! String Segment Size:2283 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Function Func6275 As Integer
  9.  
  10.       Dim i4463 As Integer
  11.       Dim i4465 As Integer
  12.       Dim i4467 As Integer
  13.       Dim i4469 As Integer
  14.       Dim i4471 As Integer
  15.       Dim i4473 As Integer
  16.       Dim i4500 As Integer
  17.       Dim i4502 As Integer
  18.       Dim s4504 As String*30
  19.       Dim s4534 As String*25
  20.       Dim s4559 As String*10
  21.       Dim s4651 As String*6
  22.       Dim i4657 As Integer
  23.       Dim i4659 As Integer
  24.       Dim i4661 As Integer
  25.       Dim i4663 As Integer
  26.       Dim i4665 As Integer
  27.       Dim i4667 As Integer
  28.       Dim s4669 As String*80
  29.       Dim s4749 As String*80
  30.       Dim dt4829 As DateTime
  31.       Dim i4837 As Integer
  32.       Dim i4839 As Integer
  33.       Dim s4841 As String*10
  34.       Dim s4851 As String*4
  35.       Dim s4855 As String*4
  36.       Dim i4859 As Integer
  37.       Dim s4861 As String*31
  38.       Dim s4892 As String*35
  39.       Dim s4927 As String*56
  40.       Dim s4983 As String*80
  41.       Dim i5063 As Integer
  42.       Dim s5065 As String*10
  43.       Dim s5075 As String*30
  44.       Dim i5105 As Integer
  45.       Dim s5107 As String
  46.       Dim s5111 As String
  47.       Dim s5115 As String
  48.       Dim s5119 As String
  49.       Dim sp5123 As SecurityProfile
  50.       Dim i5364 As Integer
  51.       Dim s5366 As String
  52.       Dim s5370 As String
  53.       Dim s5374 As String
  54.       Dim s5378 As String
  55.       Dim i5382 As Integer
  56.       Dim s5384 As String
  57.  
  58.       Dim l65520_ As Long
  59.       Dim i65524_ As Integer
  60.       Dim i65526_ As Integer
  61.       Dim i65528_ As Integer
  62.       Dim i65530_ As Integer
  63.       Dim i65532_ As Integer
  64.       Dim i65534_ As Integer
  65.  
  66.       s4861 = "Support the Shareware concept."
  67.       s4892 = "Help support " + MakeWild.BBSName + "."
  68.       s4927 = "Ask " + MakeWild.SysopName + " how to SPONSOR this game."
  69.       i4500 = 0
  70.       i4502 = 0
  71.       i4837 = 0
  72.       s4651 = "false"
  73.       i5105 = 0
  74.       CurrentDateTime dt4829
  75.       s4669 = NodeInfo.CallersName + " entered CRAPS door at " + FormatTime(dt4829.T, "Hh:MM:Ss") + "."
  76.       ActivityLog s4669
  77.       If Exists(ProgPath + "CRAPS005.BBS") Then
  78.         Cls 
  79.         Print DefColor
  80.         DisplayTextFile(ProgPath + "CRAPS005.BBS")
  81.         Locate 4, 57
  82.         Color 3, 0
  83.         Print "BY Mike & Sandy Atwood"
  84.         Locate 6, 60
  85.         Color 3, 0
  86.         Print "My Home BBS!"
  87.         Locate 7, 60
  88.         Color 3, 0
  89.         Print "Augusta, GA"
  90.         Locate 8, 60
  91.         Color 3, 0
  92.         Print "(706)-790-4534"
  93.       Else
  94.   345   Cls 
  95.         Print DefColor
  96.         Print "CRAPS005.BBS not found."
  97.         Beep 
  98.         Delay 0.25
  99.         Beep 
  100.         Delay 0.25
  101.         Beep 
  102.         Delay 2
  103.         End 
  104.       End If
  105.   398 i4663 = FreeFile
  106.       If i4663 = 0 Then
  107.         Cls 
  108.         Print DefColor
  109.         Print "Not enough files available to run CRAPS!"
  110.         Print "Increase the numbers of files in your CONFIG.SYS and try again."
  111.         Beep 
  112.         Delay 0.25
  113.         Beep 
  114.         Delay 0.25
  115.         Beep 
  116.         Delay 4
  117.         End 
  118.       Else
  119.   488   Open ProgPath + "CRAPS.CFG" For Input As i4663
  120.         Input #i4663, s4534
  121.         Input #i4663, s4504
  122.         Input #i4663, s4559
  123.         Input #i4663, s4851
  124.         Input #i4663, i4667
  125.         Input #i4663, s4855
  126.         Input #i4663, i4859
  127.         Input #i4663, i5063
  128.         Close i4663
  129.       End If
  130.   617 If UCase(Trim(s4534)) <> UCase(Trim(MakeWild.SysopName)) Then
  131.         Cls 
  132.         Print DefColor
  133.         Print "CRAPS.CFG line 1 incorrect."
  134.         Print "Enter the SysOp name EXACTLY as it appears in Makewild."
  135.         Beep 
  136.         Delay 0.25
  137.         Beep 
  138.         Delay 0.25
  139.         Beep 
  140.         Delay 3
  141.         End 
  142.       Else
  143.   721   If UCase(Trim(s4504)) <> UCase(Trim(MakeWild.BBSName)) Then
  144.           Cls 
  145.           Print DefColor
  146.           Print "CRAPS.CFG line 2 incorrect."
  147.           Print "Enter the BBS name EXACTLY as it appears in Makewild."
  148.           Beep 
  149.           Delay 0.25
  150.           Beep 
  151.           Delay 0.25
  152.           Beep 
  153.           Delay 3
  154.           End 
  155.         End If
  156.       End If
  157.   819 s5107 = Str(Asc(LCase(Left(Left(s4534, 2), 1))))
  158.       s5111 = Str(Asc(LCase(Right(Left(s4534, 2), 1))))
  159.       s5115 = Str(Asc(LCase(Left(Left(s4504, 2), 1))))
  160.       s5119 = Str(Asc(LCase(Right(Left(s4504, 2), 1))))
  161.       s4841 = Str(Val(s5107 + s5111) + Val(s5115 + s5119))
  162.       If s4841 = s4559 Then
  163.         s4651 = "true"
  164.       End If
  165.  1003 If s4651 = "false" Then
  166.         Locate 12, 1
  167.         Color 13, 0
  168.         Print Tab(40 - Len("<<<<< UNREGISTERED >>>>>") Div 2); "<<<<< UNREGISTERED >>>>>"
  169.         Locate 13, 1
  170.         Print Tab(40 - Len(" EVALUATION COPY") Div 2); " EVALUATION COPY"
  171.         Locate 15, 1
  172.         Color 14, 0
  173.         Print Tab(40 - Len(s4861) Div 2); s4861
  174.         Locate 16, 1
  175.         Print Tab(40 - Len(s4892) Div 2); s4892
  176.         Locate 17, 1
  177.         Print Tab(40 - Len(s4927) Div 2); s4927
  178.         Locate 20, 1
  179.         Color 15, 0
  180.         Print Tab(40 - Len("This 15 second delay goes away with registration.") Div 2); "This 15 second delay goes away with registration."
  181.         Delay 14.75
  182.         Locate 23, 1
  183.         Beep 
  184.         Delay 0.25
  185.         WaitEnter 
  186.       Else
  187.  1303   Locate 14, 1
  188.         Color 13, 0
  189.         Print Tab(40 - Len("This game is REGISTERED to:") Div 2); "This game is REGISTERED to:"
  190.         Locate 17, 1
  191.         Color 10, 0
  192.         Print Tab(40 - Len(MakeWild.BBSName) Div 2); MakeWild.BBSName
  193.         Locate 18, 1
  194.         Print Tab(40 - Len(MakeWild.SysopName) Div 2); MakeWild.SysopName
  195.         Locate 19, 1
  196.         Print Tab(40 - Len(MakeWild.Phone) Div 2); MakeWild.Phone
  197.         Locate 23, 1
  198.         Print DefColor
  199.         WaitEnter 
  200.       End If
  201.  1510 If GetSecProfile(sp5123, NodeInfo.Security) Then
  202.         i4839 = sp5123.DailyTimeLimit
  203.       End If
  204.  1542 If s4651 = "true" And s4855 = "yes" Then
  205.         i4837 = i4839 + i4859
  206.       Else
  207.  1599   i4837 = i4839 + 30
  208.       End If
  209.  1613 If s4651 = "true" And s4851 = "yes" Then
  210.         i4473 = Int(i4837 Div i4667)
  211.       Else
  212.  1674   i4473 = Int(i4837 Div 5)
  213.       End If
  214.  1692 i4663 = FreeFile
  215.       Open ProgPath + "daily.lst" For Input As i4663
  216.       Input #i4663, s5065
  217.       Close i4663
  218.       If s5065 <> FormatDate(dt4829.D, "Mm/dd/yyyy") Then
  219.         Del ProgPath + "daily.lst"
  220.         i4665 = FreeFile
  221.         Open ProgPath + "daily.lst" For Output As i4665
  222.         Print #i4665, FormatDate(dt4829.D, "Mm/dd/yyyy")
  223.       End If
  224.  1841 Reset 
  225.       i4663 = FreeFile
  226.       Open ProgPath + "daily.lst" For Input As i4663
  227.  1880 Do While Not EOF(i4663)
  228.         Input #i4663, s5075
  229.         If s5075 = NodeInfo.CallersName Then
  230.           i5105 = i5105 + 1
  231.         End If
  232.  1946 Loop
  233.  1952 Close i4663
  234.       i5364 = i5063 - i5105
  235.       i65534_ = i5364
  236.       If i65534_ = i5364 = 2 Then
  237.         s5366 = "You may enter this door 1 more time today."
  238.       Else
  239.  2024   s5366 = "You May enter this door " + Str(i5364) + " more times today."
  240.       End If
  241.  2050 Cls 
  242.       Locate 12, 1
  243.       Color 10, 0
  244.       Print Tab(40 - Len(s5366) Div 2); s5366
  245.       Delay 2
  246.       s5370 = "Sorry, you can only enter this door " + Str(i5063) + " times a day!"
  247.       s5374 = "Try again tomorrow."
  248.       If i5105 = i5063 Then
  249.         Cls 
  250.         Locate 12, 1
  251.         Color 13, 0
  252.         Beep 
  253.         Delay 0.25
  254.         Beep 
  255.         Delay 0.25
  256.         Beep 
  257.         Print Tab(40 - Len(s5370) Div 2); s5370
  258.         Print Tab(40 - Len(s5374) Div 2); s5374
  259.         Delay 2
  260.         Reset 
  261.         End 
  262.       End If
  263.  2264 If Exists(ProgPath + "CRAPS006.BBS") Then
  264.         DisplayTextFile(ProgPath + "CRAPS006.BBS")
  265.       Else
  266.  2303   Cls 
  267.         Print DefColor
  268.         Print "CRAPS006.BBS not found."
  269.         Beep 
  270.         Delay 0.25
  271.         Beep 
  272.         Delay 0.25
  273.         Beep 
  274.         Delay 2
  275.         End 
  276.       End If
  277.       Do
  278.  2356   Locate 17, 30
  279.         Color 9, 0
  280.         Print "What'll it be boss? ";
  281.         Input i4661
  282.         i65532_ = i4661
  283.         If i65532_ = 1 Then
  284.           i4665 = FreeFile
  285.           Open ProgPath + "daily.lst" For Append As i4665
  286.           Print #i4665, NodeInfo.CallersName
  287.           Close i4665
  288.           GoTo 2736
  289.           GoTo 2736
  290.         End If
  291.  2484   If i65532_ = 2 Then
  292.           If Exists(ProgPath + "craps.hlp") Then
  293.             DisplayTextFile(ProgPath + "craps.hlp")
  294.           Else
  295.  2538       Cls 
  296.             Print DefColor
  297.             Print " CRAPS.HLP not found."
  298.             Beep 
  299.             Delay 0.25
  300.             Beep 
  301.             Delay 0.25
  302.             Beep 
  303.             Delay 2
  304.           End If
  305.  2590     GoTo 2264
  306.           GoTo 2736
  307.         End If
  308.  2602   If i65532_ = 3 Then
  309.           GoSub 4689
  310.           GoTo 2736
  311.         End If
  312.  2629   If i65532_ = 4 Then
  313.           Cls 
  314.           CurrentDateTime dt4829
  315.           s5378 = NodeInfo.CallersName + " logged off from CRAPS door at " + FormatTime(dt4829.T, "Hh:MM:Ss") + "."
  316.           ActivityLog s5378
  317.           Goodbye 1213417543
  318.           GoTo 2736
  319.         End If
  320.  2719   Beep 
  321.         Delay 0.25
  322.       Loop
  323.       Do
  324.  2736   GoSub 5092
  325.         Locate 19, 13
  326.         Color 9, 0
  327.         If (Func6275 <> 13) = 0 Then GoTo 2777
  328.       Loop
  329.  2777
  330.  2801 For i4463 = 1 To i4473 Step 1
  331.         GoSub 3269
  332.         Delay 1
  333.         i65530_ = i4465
  334.         If i65530_ = 2 Then GoTo 2920
  335.         If i65530_ = 3 Then GoTo 2920
  336.         If i65530_ = 12 Then
  337.  2920     GoSub 4978
  338.           Cls 
  339.           Print DefColor
  340.           GoSub 5092
  341.           GoSub 5992
  342.         Else
  343.  2954     If i65530_ = 7 Then GoTo 2984
  344.           If i65530_ = 11 Then
  345.  2984       GoSub 4864
  346.             Cls 
  347.             Print DefColor
  348.             GoSub 5092
  349.             GoSub 5615
  350.           Else
  351.  3018       i4471 = i4465
  352.             Color 5, 3
  353.             Locate 6, 29
  354.             Print "Your point to match is "
  355.             Color 3, 3
  356.             Locate 6, 52
  357.             Print String(4, "█")
  358.             Locate 6, 52
  359.             Color 15, 3
  360.             Print i4471
  361.             Do
  362.  3102         GoSub 4618
  363.               GoSub 3269
  364.             Loop Until i4465 = 7 Or i4465 = 11 Or i4465 = i4471
  365.             If i4465 = i4471 Then
  366.               GoSub 4864
  367.               Cls 
  368.               Print DefColor
  369.               GoSub 5092
  370.               GoSub 5615
  371.             Else
  372.  3206         GoSub 4978
  373.               Cls 
  374.               Print DefColor
  375.               GoSub 5092
  376.               GoSub 5992
  377.             End If
  378.           End If
  379.         End If
  380.  3234   GoSub 4618
  381.       Next
  382.  3263 GoSub 4689
  383.  3269 Color 15, 2
  384.       Locate 11, 13
  385.       Print "███████████"
  386.       Locate 11, 34
  387.       Print "███████████"
  388.       Locate 13, 13
  389.       Print "███████████"
  390.       Locate 13, 34
  391.       Print "███████████"
  392.       Locate 15, 13
  393.       Print "███████████"
  394.       Locate 15, 34
  395.       Print "███████████"
  396.       i4467 = Int(Rnd(1) * 6) + 1
  397.       i65528_ = i4467
  398.       If i65528_ = 1 Then
  399.         Locate 13, 18
  400.         Color 0, 0
  401.         Print " "
  402.       Else
  403.  3451   If i65528_ = 2 Then
  404.           Locate 11, 18
  405.           Color 0, 0
  406.           Print " "
  407.           Locate 15, 18
  408.           Color 0, 0
  409.           Print " "
  410.         Else
  411.  3514     If i65528_ = 3 Then
  412.             Locate 11, 18
  413.             Color 0, 0
  414.             Print " "
  415.             Locate 13, 18
  416.             Color 0, 0
  417.             Print " "
  418.             Locate 15, 18
  419.             Color 0, 0
  420.             Print " "
  421.           Else
  422.  3598       If i65528_ = 4 Then
  423.               Locate 11, 14
  424.               Color 0, 0
  425.               Print " "
  426.               Locate 11, 22
  427.               Color 0, 0
  428.               Print " "
  429.               Locate 15, 14
  430.               Color 0, 0
  431.               Print " "
  432.               Locate 15, 22
  433.               Color 0, 0
  434.               Print " "
  435.             Else
  436.  3703         If i65528_ = 5 Then
  437.                 Locate 11, 14
  438.                 Color 0, 0
  439.                 Print " "
  440.                 Locate 11, 22
  441.                 Color 0, 0
  442.                 Print " "
  443.                 Locate 13, 18
  444.                 Color 0, 0
  445.                 Print " "
  446.                 Locate 15, 14
  447.                 Color 0, 0
  448.                 Print " "
  449.                 Locate 15, 22
  450.                 Color 0, 0
  451.                 Print " "
  452.               Else
  453.  3829           Locate 11, 14
  454.                 Color 0, 0
  455.                 Print " "
  456.                 Locate 11, 22
  457.                 Color 0, 0
  458.                 Print " "
  459.                 Locate 13, 14
  460.                 Color 0, 0
  461.                 Print " "
  462.                 Locate 13, 22
  463.                 Color 0, 0
  464.                 Print " "
  465.                 Locate 15, 14
  466.                 Color 0, 0
  467.                 Print " "
  468.                 Locate 15, 22
  469.                 Color 0, 0
  470.                 Print " "
  471.               End If
  472.             End If
  473.           End If
  474.         End If
  475.       End If
  476.  3955 Delay 0.75
  477.       i4469 = Int(Rnd(1) * 6) + 1
  478.       i65526_ = i4469
  479.       If i65526_ = 1 Then
  480.         Locate 13, 39
  481.         Color 0, 0
  482.         Print " "
  483.       Else
  484.  4042   If i65526_ = 2 Then
  485.           Locate 11, 39
  486.           Color 0, 0
  487.           Print " "
  488.           Locate 15, 39
  489.           Color 0, 0
  490.           Print " "
  491.         Else
  492.  4105     If i65526_ = 3 Then
  493.             Locate 11, 39
  494.             Color 0, 0
  495.             Print " "
  496.             Locate 13, 39
  497.             Color 0, 0
  498.             Print " "
  499.             Locate 15, 39
  500.             Color 0, 0
  501.             Print " "
  502.           Else
  503.  4189       If i65526_ = 4 Then
  504.               Locate 11, 35
  505.               Color 0, 0
  506.               Print " "
  507.               Locate 11, 43
  508.               Color 0, 0
  509.               Print " "
  510.               Locate 15, 35
  511.               Color 0, 0
  512.               Print " "
  513.               Locate 15, 43
  514.               Color 0, 0
  515.               Print " "
  516.             Else
  517.  4294         If i65526_ = 5 Then
  518.                 Locate 11, 35
  519.                 Color 0, 0
  520.                 Print " "
  521.                 Locate 11, 43
  522.                 Color 0, 0
  523.                 Print " "
  524.                 Locate 13, 39
  525.                 Color 0, 0
  526.                 Print " "
  527.                 Locate 15, 35
  528.                 Color 0, 0
  529.                 Print " "
  530.                 Locate 15, 43
  531.                 Color 0, 0
  532.                 Print " "
  533.               Else
  534.  4420           Locate 11, 35
  535.                 Color 0, 0
  536.                 Print " "
  537.                 Locate 11, 43
  538.                 Color 0, 0
  539.                 Print " "
  540.                 Locate 13, 35
  541.                 Color 0, 0
  542.                 Print " "
  543.                 Locate 13, 43
  544.                 Color 0, 0
  545.                 Print " "
  546.                 Locate 15, 35
  547.                 Color 0, 0
  548.                 Print " "
  549.                 Locate 15, 43
  550.                 Color 0, 0
  551.                 Print " "
  552.               End If
  553.             End If
  554.           End If
  555.         End If
  556.       End If
  557.  4546 Delay 0.75
  558.       i4465 = i4467 + i4469
  559.       Locate 13, 57
  560.       Color 2, 2
  561.       Print "   "
  562.       Locate 13, 57
  563.       Color 15, 2
  564.       Print i4465
  565.       Return 
  566.  4618 Locate 19, 11
  567.       Color 0, 0
  568.       Print String(34, " ")
  569.       Locate 19, 20
  570.       Color 9, 0
  571.       If InputYesNo("Roll again? (Y/N) ", 1213417543) Then
  572.         Return 
  573.       Else
  574.  4683   GoSub 4689
  575.       End If
  576.  4689 Reset 
  577.       Delay 0.25
  578.       If Exists(ProgPath + "CRAPS004.BBS") Then
  579.         Print DefColor
  580.         DisplayTextFile(ProgPath + "CRAPS004.BBS")
  581.       Else
  582.  4746   Color 13, 0
  583.         Print DefColor
  584.         Print "CRAPS004.BBS not found."
  585.         Beep 
  586.         Delay 0.25
  587.         Beep 
  588.         Delay 0.25
  589.         Beep 
  590.         Delay 2
  591.       End If
  592.  4801 CurrentDateTime dt4829
  593.       s4749 = NodeInfo.CallersName + " left the CRAPS DOOR at " + FormatTime(dt4829.T, "Hh:MM:Ss") + "."
  594.       ActivityLog s4749
  595.       End 
  596.  4864 If Exists(ProgPath + "CRAPS001.BBS") Then
  597.         Cls 
  598.         Print DefColor
  599.         DisplayTextFile(ProgPath + "CRAPS001.BBS")
  600.         Cls 
  601.       Else
  602.  4916   Color 13, 0
  603.         Print DefColor
  604.         Print "CRAPS001.BBS not found."
  605.         Beep 
  606.         Delay 0.25
  607.         Beep 
  608.         Delay 0.25
  609.         Beep 
  610.         Delay 2
  611.         GoSub 4689
  612.       End If
  613.  4977 Return 
  614.  4978 If Exists(ProgPath + "CRAPS002.BBS") Then
  615.         Cls 
  616.         Print DefColor
  617.         DisplayTextFile(ProgPath + "CRAPS002.BBS")
  618.         Cls 
  619.       Else
  620.  5030   Color 13, 0
  621.         Print DefColor
  622.         Print "CRAPS002.BBS not found."
  623.         Beep 
  624.         Delay 0.25
  625.         Beep 
  626.         Delay 0.25
  627.         Beep 
  628.         Delay 2
  629.         GoSub 4689
  630.       End If
  631.  5091 Return 
  632.  5092 Cls 
  633.       Color 13, 0
  634.       Print DefColor
  635.       If Exists(ProgPath + "CRAPS003.BBS") Then
  636.         DisplayTextFile(ProgPath + "CRAPS003.BBS")
  637.       Else
  638.  5147   Print "PUT ALL THE CRAPS GAME FILES IN THE SAME DIRECTORY!"
  639.         Beep 
  640.         Delay 0.25
  641.         Beep 
  642.         Delay 0.25
  643.         Beep 
  644.         Delay 2
  645.         GoSub 4689
  646.       End If
  647.  5195 Locate 3, 27
  648.       Color 1, 3
  649.       Print "Welcome to the craps table,"
  650.       i5382 = 40 - Len(NodeInfo.CallersName) Div 2
  651.       Locate 4, i5382
  652.       Color 15, 3
  653.       Print NodeInfo.CallersName
  654.       Locate 12, 74
  655.       Color 7, 7
  656.       Print String(3, "█")
  657.       Locate 12, 74
  658.       Color 0, 7
  659.       Print i4500
  660.       Locate 16, 74
  661.       Color 7, 7
  662.       Print String(3, "█")
  663.       Locate 16, 74
  664.       Color 0, 7
  665.       Print i4502
  666.       Locate 20, 72
  667.       Color 2, 2
  668.       Print String(5, "█")
  669.       Locate 20, 72
  670.       Color 0, 2
  671.       Print TimeLeft
  672.       Locate 22, 2
  673.       Color 4, 2
  674.       s4983 = "As a magnanamous gesture, " + s4534 + "will let you win up to " + Str(i4837) + " minutes."
  675.       Print Tab(40 - Len(s4983) Div 2); s4983
  676.       If s4851 = "YES" Then
  677.         s5384 = "Your bet per game is " + Str(i4667) + " minutes."
  678.       Else
  679.  5563   s5384 = "Your bet per game is 5 minutes."
  680.       End If
  681.  5572 Locate 23, 2
  682.       Color 15, 2
  683.       Print Tab(40 - Len(s5384) Div 2); s5384
  684.       Return 
  685.  5615 i4500 = i4500 + 1
  686.       If s4651 = "true" And s4851 = "yes" Then
  687.         i4659 = TimeLeft + i4667
  688.       Else
  689.  5684   i4659 = TimeLeft + 5
  690.       End If
  691.  5696 If i4659 > i4837 Then
  692.         Cls 
  693.         Print DefColor
  694.         Locate 12, 1
  695.         Color 13, 0
  696.         Print Tab(40 - Len("Sorry Charlie.  You can't win more than your") Div 2); "Sorry Charlie.  You can't win more than your"
  697.         Print Tab(40 - Len("Security Profile's MAX daily time limit.") Div 2); "Security Profile's MAX daily time limit."
  698.         i4657 = i4837 - TimeLeft
  699.         AddTime i4657
  700.         Delay 2
  701.         GoSub 4689
  702.       Else
  703.  5840   Locate 20, 72
  704.         Color 2, 2
  705.         Print String(5, "█")
  706.         Locate 20, 72
  707.         Color 0, 2
  708.         If s4651 = "true" And s4851 = "yes" Then
  709.           AddTime i4667
  710.         Else
  711.  5929     AddTime 5
  712.         End If
  713.  5934   Print TimeLeft
  714.         Locate 12, 74
  715.         Color 7, 7
  716.         Print String(3, "█")
  717.         Locate 12, 74
  718.         Color 0, 7
  719.         Print i4500
  720.       End If
  721.  5991 Return 
  722.  5992 i4502 = i4502 + 1
  723.       Locate 20, 72
  724.       Color 2, 2
  725.       Print String(5, "█")
  726.       Locate 20, 72
  727.       Color 0, 2
  728.       If s4651 = "true" And s4851 = "yes" Then
  729.         AddTime - i4667
  730.       Else
  731.  6097   AddTime - 5
  732.       End If
  733.  6104 Print TimeLeft
  734.       Locate 16, 74
  735.       Color 7, 7
  736.       Print String(3, "█")
  737.       Locate 16, 74
  738.       Color 0, 7
  739.       Print i4502
  740.       If TimeLeft < 5 Then
  741.         Cls 
  742.         Locate 12, 1
  743.         Color 13, 0
  744.         Print Tab(40 - Len("You're outa luck!  No time left to gamble.") Div 2); "You're outa luck!  No time left to gamble."
  745.         Delay 2
  746.         GoSub 4689
  747.       End If
  748.  6234 Return 
  749.  
  750. '! Called 1 time
  751.       Function Func6275 As Integer
  752.         Dim i65524 As Integer
  753.         Dim s65526 As String
  754.  
  755.         Print "Hit ENTER to roll the dice.";
  756.         Do
  757.  6293     s65526 = InKey(1213417543)
  758.           i65524 = InStr(Chr(13) , s65526) <> 0
  759.         Loop Until i65524
  760.         Func6275 = Asc(s65526)
  761.       End Function
  762.